home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Foxpro 2.6 {Windows} / GETDEST.PR_ / GETDEST.bin
Text File  |  1994-03-10  |  26KB  |  760 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 02/09/94             GETDEST.SPR               22:22:16 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1994 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. DO CASE
  19. CASE _DOS OR _UNIX      && no UNIX records in screen
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     *       ╓─────────────────────────────────────────────────────────╖
  35.     *       ║                                                         ║
  36.     *       ║                MS-DOS Window definitions                ║
  37.     *       ║                                                         ║
  38.     *       ╙─────────────────────────────────────────────────────────╜
  39.     *
  40.     
  41.     IF NOT WEXIST("_qne1by63r")
  42.         DEFINE WINDOW _qne1by63r ;
  43.             FROM INT((SROW()-7)/2),INT((SCOL()-44)/2) ;
  44.             TO INT((SROW()-7)/2)+6,INT((SCOL()-44)/2)+43 ;
  45.             TITLE "Report Destination" ;
  46.             FLOAT ;
  47.             NOCLOSE ;
  48.             SHADOW ;
  49.             NOMINIMIZE ;
  50.             DOUBLE ;
  51.             COLOR SCHEME 5
  52.     ENDIF
  53.     
  54.     
  55.     *       ╓─────────────────────────────────────────────────────────╖
  56.     *       ║                                                         ║
  57.     *       ║          GETDEST/MS-DOS Setup Code - SECTION 2          ║
  58.     *       ║                                                         ║
  59.     *       ╙─────────────────────────────────────────────────────────╜
  60.     *
  61.     
  62.     #REGION 1
  63.     skipvar = .T.
  64.     repbut = 1   && default button choice
  65.     repdest = SPACE(40)
  66.     okbut = 0
  67.     
  68.     * Disable the file options if 'file' isn't the default destination
  69.     IF repbut = 3
  70.        SHOW GET repdest ENABLE
  71.        SHOW GET rfile   ENABLE
  72.     ELSE
  73.        SHOW GET repdest DISABLE
  74.        SHOW GET rfile   DISABLE
  75.     ENDIF
  76.     
  77.     
  78.     *       ╓─────────────────────────────────────────────────────────╖
  79.     *       ║                                                         ║
  80.     *       ║              GETDEST/MS-DOS Screen Layout               ║
  81.     *       ║                                                         ║
  82.     *       ╙─────────────────────────────────────────────────────────╜
  83.     *
  84.     
  85.     #REGION 1
  86.     IF WVISIBLE("_qne1by63r")
  87.         ACTIVATE WINDOW _qne1by63r SAME
  88.     ELSE
  89.         ACTIVATE WINDOW _qne1by63r NOSHOW
  90.     ENDIF
  91.     @ 1,4 SAY "Report Destination:" ;
  92.         SIZE 1,19, 0
  93.     @ 2,8 GET repbut ;
  94.         PICTURE "@*RVN \<Screen;\<Printer" ;
  95.         SIZE 1,11,0 ;
  96.         DEFAULT 1 ;
  97.         VALID _qne1by74l()
  98.     @ 1,28 GET okbut ;
  99.         PICTURE "@*VT \!OK" ;
  100.         SIZE 1,10,1 ;
  101.         DEFAULT 1
  102.     @ 3,28 GET canclbut ;
  103.         PICTURE "@*HT \?Cancel" ;
  104.         SIZE 1,10,1 ;
  105.         DEFAULT 1 ;
  106.         VALID _qne1by78m()
  107.     
  108.     IF NOT WVISIBLE("_qne1by63r")
  109.         ACTIVATE WINDOW _qne1by63r
  110.     ENDIF
  111.     
  112.     
  113.     *       ╓─────────────────────────────────────────────────────────╖
  114.     *       ║                                                         ║
  115.     *       ║     MS-DOSREAD contains clauses from SCREEN getdest     ║
  116.     *       ║                                                         ║
  117.     *       ╙─────────────────────────────────────────────────────────╜
  118.     *
  119.     
  120.     READ CYCLE ;
  121.         DEACTIVATE _qne1by7p2() ;
  122.         SHOW _qne1by7p5() ;
  123.         MODAL
  124.     
  125.     RELEASE WINDOW _qne1by63r
  126.     
  127.     #REGION 0
  128.     IF m.talkstat = "ON"
  129.         SET TALK ON
  130.     ENDIF
  131.     IF m.compstat = "ON"
  132.         SET COMPATIBLE ON
  133.     ENDIF
  134.     
  135.     
  136.     *       ╓─────────────────────────────────────────────────────────╖
  137.     *       ║                                                         ║
  138.     *       ║               GETDEST/MS-DOS Cleanup Code               ║
  139.     *       ║                                                         ║
  140.     *       ╙─────────────────────────────────────────────────────────╜
  141.     *
  142.     
  143.     #REGION 1
  144.     skipvar = .F.
  145.     
  146.  
  147. CASE _MAC
  148.  
  149.     
  150.     #REGION 0
  151.     REGIONAL m.currarea, m.talkstat, m.compstat
  152.     
  153.     IF SET("TALK") = "ON"
  154.         SET TALK OFF
  155.         m.talkstat = "ON"
  156.     ELSE
  157.         m.talkstat = "OFF"
  158.     ENDIF
  159.     m.compstat = SET("COMPATIBLE")
  160.     SET COMPATIBLE FOXPLUS
  161.     
  162.     m.rborder = SET("READBORDER")
  163.     SET READBORDER OFF
  164.     
  165.     *       ╓─────────────────────────────────────────────────────────╖
  166.     *       ║                                                         ║
  167.     *       ║              Macintosh Window definitions               ║
  168.     *       ║                                                         ║
  169.     *       ╙─────────────────────────────────────────────────────────╜
  170.     *
  171.     
  172.     IF NOT WEXIST("_qne1by81f")
  173.         DEFINE WINDOW _qne1by81f ;
  174.             AT  0.000, 0.000  ;
  175.             SIZE 5.692,42.000 ;
  176.             TITLE "Report Destination" ;
  177.             FONT "Geneva", 10 ;
  178.             FLOAT ;
  179.             NOCLOSE ;
  180.             SHADOW ;
  181.             DOUBLE
  182.         MOVE WINDOW _qne1by81f CENTER
  183.     ENDIF
  184.     
  185.     
  186.     *       ╓─────────────────────────────────────────────────────────╖
  187.     *       ║                                                         ║
  188.     *       ║        GETDEST/Macintosh Setup Code - SECTION 2         ║
  189.     *       ║                                                         ║
  190.     *       ╙─────────────────────────────────────────────────────────╜
  191.     *
  192.     
  193.     #REGION 1
  194.     skipvar = .T.
  195.     repbut = 1   && default button choice
  196.     repdest = SPACE(40)
  197.     okbut = 0
  198.     
  199.     * Disable the file options if 'file' isn't the default destination
  200.     IF repbut = 3
  201.        SHOW GET repdest ENABLE
  202.        SHOW GET rfile   ENABLE
  203.     ELSE
  204.        SHOW GET repdest DISABLE
  205.        SHOW GET rfile   DISABLE
  206.     ENDIF
  207.     
  208.     
  209.     *       ╓─────────────────────────────────────────────────────────╖
  210.     *       ║                                                         ║
  211.     *       ║             GETDEST/Macintosh Screen Layout             ║
  212.     *       ║                                                         ║
  213.     *       ╙─────────────────────────────────────────────────────────╜
  214.     *
  215.     
  216.     #REGION 1
  217.     IF WVISIBLE("_qne1by81f")
  218.         ACTIVATE WINDOW _qne1by81f SAME
  219.     ELSE
  220.         ACTIVATE WINDOW _qne1by81f NOSHOW
  221.     ENDIF
  222.     @ 0.692,2.000 SAY "Report Destination:"  ;
  223.         FONT "Geneva", 10
  224.     @ 1.846,4.000 GET repbut ;
  225.         PICTURE "@*RVN3 \<Screen;\<Printer" ;
  226.         SIZE 1.308,10.333,0.000 ;
  227.         DEFAULT 1 ;
  228.         FONT "Geneva", 10 ;
  229.         STYLE "T" ;
  230.         VALID _qne1by8ew()
  231.     @ 0.923,28.000 GET okbut ;
  232.         PICTURE "@*VT3 \!OK" ;
  233.         SIZE 1.462,10.000,1.000 ;
  234.         DEFAULT 1 ;
  235.         FONT "Geneva", 10 ;
  236.         STYLE "B"
  237.     @ 3.077,28.000 GET canclbut ;
  238.         PICTURE "@*HT3 \?Cancel" ;
  239.         SIZE 1.462,10.000,1.000 ;
  240.         DEFAULT 1 ;
  241.         FONT "Geneva", 10 ;
  242.         STYLE "B" ;
  243.         VALID _qne1by8kx()
  244.     
  245.     IF NOT WVISIBLE("_qne1by81f")
  246.         ACTIVATE WINDOW _qne1by81f
  247.     ENDIF
  248.     
  249.     
  250.     *       ╓─────────────────────────────────────────────────────────╖
  251.     *       ║                                                         ║
  252.     *       ║   MacintoshREAD contains clauses from SCREEN getdest    ║
  253.     *       ║                                                         ║
  254.     *       ╙─────────────────────────────────────────────────────────╜
  255.     *
  256.     
  257.     READ CYCLE ;
  258.         DEACTIVATE _qne1by8p2() ;
  259.         SHOW _qne1by8p9() ;
  260.         MODAL
  261.     
  262.     RELEASE WINDOW _qne1by81f
  263.     
  264.     #REGION 0
  265.     
  266.     SET READBORDER &rborder
  267.     
  268.     IF m.talkstat = "ON"
  269.         SET TALK ON
  270.     ENDIF
  271.     IF m.compstat = "ON"
  272.         SET COMPATIBLE ON
  273.     ENDIF
  274.     
  275.     
  276.     *       ╓─────────────────────────────────────────────────────────╖
  277.     *       ║                                                         ║
  278.     *       ║             GETDEST/Macintosh Cleanup Code              ║
  279.     *       ║                                                         ║
  280.     *       ╙─────────────────────────────────────────────────────────╜
  281.     *
  282.     
  283.     #REGION 1
  284.     skipvar = .F.
  285.     
  286.  
  287. CASE _WINDOWS
  288.  
  289.     
  290.     #REGION 0
  291.     REGIONAL m.currarea, m.talkstat, m.compstat
  292.     
  293.     IF SET("TALK") = "ON"
  294.         SET TALK OFF
  295.         m.talkstat = "ON"
  296.     ELSE
  297.         m.talkstat = "OFF"
  298.     ENDIF
  299.     m.compstat = SET("COMPATIBLE")
  300.     SET COMPATIBLE FOXPLUS
  301.     
  302.     m.rborder = SET("READBORDER")
  303.     SET READBORDER OFF
  304.     
  305.     *       ╓─────────────────────────────────────────────────────────╖
  306.     *       ║                                                         ║
  307.     *       ║               Windows Window definitions                ║
  308.     *       ║                                                         ║
  309.     *       ╙─────────────────────────────────────────────────────────╜
  310.     *
  311.     
  312.     IF NOT WEXIST("_qne1by91g")
  313.         DEFINE WINDOW _qne1by91g ;
  314.             AT  0.000, 0.000  ;
  315.             SIZE 5.692,42.000 ;
  316.             TITLE "Report Destination" ;
  317.             FONT "MS Sans Serif", 8 ;
  318.             STYLE "B" ;
  319.             FLOAT ;
  320.             NOCLOSE ;
  321.             SHADOW ;
  322.             NOMINIMIZE ;
  323.             DOUBLE ;
  324.             COLOR RGB(,,,192,192,192)
  325.         MOVE WINDOW _qne1by91g CENTER
  326.     ENDIF
  327.     
  328.     
  329.     *       ╓─────────────────────────────────────────────────────────╖
  330.     *       ║                                                         ║
  331.     *       ║         GETDEST/Windows Setup Code - SECTION 2          ║
  332.     *       ║                                                         ║
  333.     *       ╙─────────────────────────────────────────────────────────╜
  334.     *
  335.     
  336.     #REGION 1
  337.     skipvar = .T.
  338.     repbut = 1   && default button choice
  339.     repdest = SPACE(40)
  340.     okbut = 0
  341.     
  342.     * Disable the file options if 'file' isn't the default destination
  343.     IF repbut = 3
  344.        SHOW GET repdest ENABLE
  345.        SHOW GET rfile   ENABLE
  346.     ELSE
  347.        SHOW GET repdest DISABLE
  348.        SHOW GET rfile   DISABLE
  349.     ENDIF
  350.     
  351.     
  352.     *       ╓─────────────────────────────────────────────────────────╖
  353.     *       ║                                                         ║
  354.     *       ║              GETDEST/Windows Screen Layout              ║
  355.     *       ║                                                         ║
  356.     *       ╙─────────────────────────────────────────────────────────╜
  357.     *
  358.     
  359.     #REGION 1
  360.     IF WVISIBLE("_qne1by91g")
  361.         ACTIVATE WINDOW _qne1by91g SAME
  362.     ELSE
  363.         ACTIVATE WINDOW _qne1by91g NOSHOW
  364.     ENDIF
  365.     @ 0.692,2.000 SAY "Report Destination:"  ;
  366.         FONT "MS Sans Serif", 8 ;
  367.         STYLE "B"
  368.     @ 1.923,4.333 GET repbut ;
  369.         PICTURE "@*RVN \<Screen;\<Printer" ;
  370.         SIZE 1.308,11.167,0.000 ;
  371.         DEFAULT 1 ;
  372.         FONT "MS Sans Serif", 8 ;
  373.         STYLE "BT" ;
  374.         VALID _qne1by9kp() ;
  375.         COLOR ,,,,,,,,RGB(,,,192,192,192),RGB(,,,192,192,192)
  376.     @ 0.923,28.000 GET okbut ;
  377.         PICTURE "@*VT \!\<OK" ;
  378.         SIZE 1.538,10.000,1.000 ;
  379.         DEFAULT 1 ;
  380.         FONT "MS Sans Serif", 8 ;
  381.         STYLE "B"
  382.     @ 3.077,28.000 GET canclbut ;
  383.         PICTURE "@*HT \?\<Cancel" ;
  384.         SIZE 1.538,10.000,1.000 ;
  385.         DEFAULT 1 ;
  386.         FONT "MS Sans Serif", 8 ;
  387.         STYLE "B" ;
  388.         VALID _qne1by9qq()
  389.     
  390.     IF NOT WVISIBLE("_qne1by91g")
  391.         ACTIVATE WINDOW _qne1by91g
  392.     ENDIF
  393.     
  394.     
  395.     *       ╓─────────────────────────────────────────────────────────╖
  396.     *       ║                                                         ║
  397.     *       ║    WindowsREAD contains clauses from SCREEN getdest     ║
  398.     *       ║                                                         ║
  399.     *       ╙─────────────────────────────────────────────────────────╜
  400.     *
  401.     
  402.     READ CYCLE ;
  403.         DEACTIVATE _qne1by9va() ;
  404.         SHOW _qne1by9vf() ;
  405.         MODAL
  406.     
  407.     RELEASE WINDOW _qne1by91g
  408.     
  409.     #REGION 0
  410.     
  411.     SET READBORDER &rborder
  412.     
  413.     IF m.talkstat = "ON"
  414.         SET TALK ON
  415.     ENDIF
  416.     IF m.compstat = "ON"
  417.         SET COMPATIBLE ON
  418.     ENDIF
  419.     
  420.     
  421.     *       ╓─────────────────────────────────────────────────────────╖
  422.     *       ║                                                         ║
  423.     *       ║              GETDEST/Windows Cleanup Code               ║
  424.     *       ║                                                         ║
  425.     *       ╙─────────────────────────────────────────────────────────╜
  426.     *
  427.     
  428.     #REGION 1
  429.     skipvar = .F.
  430.     
  431.  
  432. ENDCASE
  433.  
  434.  
  435. *       ╓─────────────────────────────────────────────────────────╖
  436. *       ║                                                         ║
  437. *       ║ _QNE1BY74L           repbut VALID                       ║
  438. *       ║                                                         ║
  439. *       ║ Function Origin:                                        ║
  440. *       ║                                                         ║
  441. *       ║ From Platform:       MS-DOS                             ║
  442. *       ║ From Screen:         GETDEST,     Record Number:    9   ║
  443. *       ║ Variable:            repbut                             ║
  444. *       ║ Called By:           VALID Clause                       ║
  445. *       ║ Object Type:         Radio Button                       ║
  446. *       ║ Snippet Number:      1                                  ║
  447. *       ║                                                         ║
  448. *       ╙─────────────────────────────────────────────────────────╜
  449. *
  450. FUNCTION _qne1by74l     &&  repbut VALID
  451. #REGION 1
  452. IF repbut <> 3
  453.    SHOW GET rfile DISABLE
  454.    SHOW GET repdest DISABLE
  455. ELSE
  456.    SHOW GET rfile ENABLE
  457.    SHOW GET repdest ENABLE
  458.    _CUROBJ = 5
  459. ENDIF
  460. SHOW GETS
  461.  
  462.  
  463. *       ╓─────────────────────────────────────────────────────────╖
  464. *       ║                                                         ║
  465. *       ║ _QNE1BY78M           canclbut VALID                     ║
  466. *       ║                                                         ║
  467. *       ║ Function Origin:                                        ║
  468. *       ║                                                         ║
  469. *       ║ From Platform:       MS-DOS                             ║
  470. *       ║ From Screen:         GETDEST,     Record Number:   11   ║
  471. *       ║ Variable:            canclbut                           ║
  472. *       ║ Called By:           VALID Clause                       ║
  473. *       ║ Object Type:         Push Button                        ║
  474. *       ║ Snippet Number:      2                                  ║
  475. *       ║                                                         ║
  476. *       ╙─────────────────────────────────────────────────────────╜
  477. *
  478. FUNCTION _qne1by78m     &&  canclbut VALID
  479. #REGION 1
  480. repdest = ''
  481.  
  482. *       ╓─────────────────────────────────────────────────────────╖
  483. *       ║                                                         ║
  484. *       ║ _QNE1BY7P2           Read Level Deactivate              ║
  485. *       ║                                                         ║
  486. *       ║ Function Origin:                                        ║
  487. *       ║                                                         ║
  488. *       ║                                                         ║
  489. *       ║ From Platform:       MS-DOS                             ║
  490. *       ║ From Screen:         GETDEST                            ║
  491. *       ║ Called By:           READ Statement                     ║
  492. *       ║ Snippet Number:      3                                  ║
  493. *       ║                                                         ║
  494. *       ╙─────────────────────────────────────────────────────────╜
  495. *
  496. FUNCTION _qne1by7p2     && Read Level Deactivate
  497. *
  498. * Deactivate Code from screen: GETDEST
  499. *
  500. #REGION 1
  501. ?? CHR(7)
  502. RETURN .F.
  503.  
  504.  
  505. *       ╓─────────────────────────────────────────────────────────╖
  506. *       ║                                                         ║
  507. *       ║ _QNE1BY7P5           Read Level Show                    ║
  508. *       ║                                                         ║
  509. *       ║ Function Origin:                                        ║
  510. *       ║                                                         ║
  511. *       ║                                                         ║
  512. *       ║ From Platform:       MS-DOS                             ║
  513. *       ║ From Screen:         GETDEST                            ║
  514. *       ║ Called By:           READ Statement                     ║
  515. *       ║ Snippet Number:      4                                  ║
  516. *       ║                                                         ║
  517. *       ╙─────────────────────────────────────────────────────────╜
  518. *
  519. FUNCTION _qne1by7p5     && Read Level Show
  520. PRIVATE currwind
  521. STORE WOUTPUT() TO currwind
  522. *
  523. * Show Code from screen: GETDEST
  524. *
  525. #REGION 1
  526. IF repbut = 3
  527.    SHOW GET repdest ENABLE
  528.    SHOW GET rfile   ENABLE
  529. ELSE
  530.    SHOW GET repdest DISABLE
  531.    SHOW GET rfile   DISABLE
  532. ENDIF
  533.  
  534. IF repbut = 3 AND EMPTY(repdest)
  535.    SHOW GET okbut DISABLE
  536. ELSE
  537.    SHOW GET okbut ENABLE
  538. ENDIF
  539.  
  540. IF NOT EMPTY(currwind)
  541.     ACTIVATE WINDOW (currwind) SAME
  542. ENDIF
  543.  
  544. *       ╓─────────────────────────────────────────────────────────╖
  545. *       ║                                                         ║
  546. *       ║ _QNE1BY8EW           repbut VALID                       ║
  547. *       ║                                                         ║
  548. *       ║ Function Origin:                                        ║
  549. *       ║                                                         ║
  550. *       ║ From Platform:       Macintosh                          ║
  551. *       ║ From Screen:         GETDEST,     Record Number:   14   ║
  552. *       ║ Variable:            repbut                             ║
  553. *       ║ Called By:           VALID Clause                       ║
  554. *       ║ Object Type:         Radio Button                       ║
  555. *       ║ Snippet Number:      5                                  ║
  556. *       ║                                                         ║
  557. *       ╙─────────────────────────────────────────────────────────╜
  558. *
  559. FUNCTION _qne1by8ew     &&  repbut VALID
  560. #REGION 1
  561. IF repbut <> 3
  562.    SHOW GET rfile DISABLE
  563.    SHOW GET repdest DISABLE
  564. ELSE
  565.    SHOW GET rfile ENABLE
  566.    SHOW GET repdest ENABLE
  567.    _CUROBJ = 5
  568. ENDIF
  569. SHOW GETS
  570.  
  571.  
  572. *       ╓─────────────────────────────────────────────────────────╖
  573. *       ║                                                         ║
  574. *       ║ _QNE1BY8KX           canclbut VALID                     ║
  575. *       ║                                                         ║
  576. *       ║ Function Origin:                                        ║
  577. *       ║                                                         ║
  578. *       ║ From Platform:       Macintosh                          ║
  579. *       ║ From Screen:         GETDEST,     Record Number:   16   ║
  580. *       ║ Variable:            canclbut                           ║
  581. *       ║ Called By:           VALID Clause                       ║
  582. *       ║ Object Type:         Push Button                        ║
  583. *       ║ Snippet Number:      6                                  ║
  584. *       ║                                                         ║
  585. *       ╙─────────────────────────────────────────────────────────╜
  586. *
  587. FUNCTION _qne1by8kx     &&  canclbut VALID
  588. #REGION 1
  589. repdest = ''
  590.  
  591. *       ╓─────────────────────────────────────────────────────────╖
  592. *       ║                                                         ║
  593. *       ║ _QNE1BY8P2           Read Level Deactivate              ║
  594. *       ║                                                         ║
  595. *       ║ Function Origin:                                        ║
  596. *       ║                                                         ║
  597. *       ║                                                         ║
  598. *       ║ From Platform:       Macintosh                          ║
  599. *       ║ From Screen:         GETDEST                            ║
  600. *       ║ Called By:           READ Statement                     ║
  601. *       ║ Snippet Number:      7                                  ║
  602. *       ║                                                         ║
  603. *       ╙─────────────────────────────────────────────────────────╜
  604. *
  605. FUNCTION _qne1by8p2     && Read Level Deactivate
  606. *
  607. * Deactivate Code from screen: GETDEST
  608. *
  609. #REGION 1
  610. ?? CHR(7)
  611. RETURN .F.
  612.  
  613.  
  614. *       ╓─────────────────────────────────────────────────────────╖
  615. *       ║                                                         ║
  616. *       ║ _QNE1BY8P9           Read Level Show                    ║
  617. *       ║                                                         ║
  618. *       ║ Function Origin:                                        ║
  619. *       ║                                                         ║
  620. *       ║                                                         ║
  621. *       ║ From Platform:       Macintosh                          ║
  622. *       ║ From Screen:         GETDEST                            ║
  623. *       ║ Called By:           READ Statement                     ║
  624. *       ║ Snippet Number:      8                                  ║
  625. *       ║                                                         ║
  626. *       ╙─────────────────────────────────────────────────────────╜
  627. *
  628. FUNCTION _qne1by8p9     && Read Level Show
  629. PRIVATE currwind
  630. STORE WOUTPUT() TO currwind
  631. *
  632. * Show Code from screen: GETDEST
  633. *
  634. #REGION 1
  635. IF repbut = 3
  636.    SHOW GET repdest ENABLE
  637.    SHOW GET rfile   ENABLE
  638. ELSE
  639.    SHOW GET repdest DISABLE
  640.    SHOW GET rfile   DISABLE
  641. ENDIF
  642.  
  643. IF repbut = 3 AND EMPTY(repdest)
  644.    SHOW GET okbut DISABLE
  645. ELSE
  646.    SHOW GET okbut ENABLE
  647. ENDIF
  648.  
  649. IF NOT EMPTY(currwind)
  650.     ACTIVATE WINDOW (currwind) SAME
  651. ENDIF
  652.  
  653. *       ╓─────────────────────────────────────────────────────────╖
  654. *       ║                                                         ║
  655. *       ║ _QNE1BY9KP           repbut VALID                       ║
  656. *       ║                                                         ║
  657. *       ║ Function Origin:                                        ║
  658. *       ║                                                         ║
  659. *       ║ From Platform:       Windows                            ║
  660. *       ║ From Screen:         GETDEST,     Record Number:    3   ║
  661. *       ║ Variable:            repbut                             ║
  662. *       ║ Called By:           VALID Clause                       ║
  663. *       ║ Object Type:         Radio Button                       ║
  664. *       ║ Snippet Number:      9                                  ║
  665. *       ║                                                         ║
  666. *       ╙─────────────────────────────────────────────────────────╜
  667. *
  668. FUNCTION _qne1by9kp     &&  repbut VALID
  669. #REGION 1
  670. IF repbut <> 3
  671.    SHOW GET rfile DISABLE
  672.    SHOW GET repdest DISABLE
  673. ELSE
  674.    SHOW GET rfile ENABLE
  675.    SHOW GET repdest ENABLE
  676.    _CUROBJ = 5
  677. ENDIF
  678. SHOW GETS
  679.  
  680.  
  681. *       ╓─────────────────────────────────────────────────────────╖
  682. *       ║                                                         ║
  683. *       ║ _QNE1BY9QQ           canclbut VALID                     ║
  684. *       ║                                                         ║
  685. *       ║ Function Origin:                                        ║
  686. *       ║                                                         ║
  687. *       ║ From Platform:       Windows                            ║
  688. *       ║ From Screen:         GETDEST,     Record Number:    5   ║
  689. *       ║ Variable:            canclbut                           ║
  690. *       ║ Called By:           VALID Clause                       ║
  691. *       ║ Object Type:         Push Button                        ║
  692. *       ║ Snippet Number:      10                                 ║
  693. *       ║                                                         ║
  694. *       ╙─────────────────────────────────────────────────────────╜
  695. *
  696. FUNCTION _qne1by9qq     &&  canclbut VALID
  697. #REGION 1
  698. repdest = ''
  699.  
  700. *       ╓─────────────────────────────────────────────────────────╖
  701. *       ║                                                         ║
  702. *       ║ _QNE1BY9VA           Read Level Deactivate              ║
  703. *       ║                                                         ║
  704. *       ║ Function Origin:                                        ║
  705. *       ║                                                         ║
  706. *       ║                                                         ║
  707. *       ║ From Platform:       Windows                            ║
  708. *       ║ From Screen:         GETDEST                            ║
  709. *       ║ Called By:           READ Statement                     ║
  710. *       ║ Snippet Number:      11                                 ║
  711. *       ║                                                         ║
  712. *       ╙─────────────────────────────────────────────────────────╜
  713. *
  714. FUNCTION _qne1by9va     && Read Level Deactivate
  715. *
  716. * Deactivate Code from screen: GETDEST
  717. *
  718. #REGION 1
  719. ?? CHR(7)
  720. RETURN .F.
  721.  
  722.  
  723. *       ╓─────────────────────────────────────────────────────────╖
  724. *       ║                                                         ║
  725. *       ║ _QNE1BY9VF           Read Level Show                    ║
  726. *       ║                                                         ║
  727. *       ║ Function Origin:                                        ║
  728. *       ║                                                         ║
  729. *       ║                                                         ║
  730. *       ║ From Platform:       Windows                            ║
  731. *       ║ From Screen:         GETDEST                            ║
  732. *       ║ Called By:           READ Statement                     ║
  733. *       ║ Snippet Number:      12                                 ║
  734. *       ║                                                         ║
  735. *       ╙─────────────────────────────────────────────────────────╜
  736. *
  737. FUNCTION _qne1by9vf     && Read Level Show
  738. PRIVATE currwind
  739. STORE WOUTPUT() TO currwind
  740. *
  741. * Show Code from screen: GETDEST
  742. *
  743. #REGION 1
  744. IF repbut = 3
  745.    SHOW GET repdest ENABLE
  746.    SHOW GET rfile   ENABLE
  747. ELSE
  748.    SHOW GET repdest DISABLE
  749.    SHOW GET rfile   DISABLE
  750. ENDIF
  751.  
  752. IF repbut = 3 AND EMPTY(repdest)
  753.    SHOW GET okbut DISABLE
  754. ELSE
  755.    SHOW GET okbut ENABLE
  756. ENDIF
  757.  
  758. IF NOT EMPTY(currwind)
  759.     ACTIVATE WINDOW (currwind) SAME
  760. ENDIF